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COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT 1 CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS. RESERVE 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC : 
eemPOkaT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
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Facility: rms32 index sequentail file organization 


Abstract: 
this module compares a contiguous or a noncontiguous search key 
to either a data record or another contiguous key 


Environment: 
vax/vms operating system 
internal exec routines. 


Author: d. h. gilllespie, creation date: 25-MAR-1978 
Modified By: 


V03-006 MCNO002 Maria del C. 04-Apr-1983 
Preserve register 2. in call . *RMSNULLKEY, $0 that we can 
use general Linkage Also, move input parameter to R1 
to be used by RMS OMPARE KEY. 


v03-005 DAS0001 David Solomo 6-Jan-1983 
Add comparison a 64-bit binery keys (IN8 and BN8). 


v03-004 TMKO0003 Todd M. Kat 16-Dec-1982 
I made another mistake in ThKk0002. I used a BiTB instead of a 
CMPZV and this basically caused some comparisons of soqnented 
keys to fail. If at first you don't succeed.... 
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v03-003 TMKO002 dd M. Katz 

1 made a mistake in TMKO0O01. I used a 


0 982 
BNEQ instead of a BEQL 
and this basically caused all comparisons of segmented keys 


0001 dd 
If the routine RMSCOM 
contigious key compare, then there is a need only to perform 
omparison regardless of the number of segments. As the 
ne currently is constructed, the comparisons are done 
ment-by=segment even though both keys are contigious and 
one. The routine was written Like 
this with heterogeneous segmented keys in mind where there would 
be a need to always compare keys segment-by-segment, regardl 
of whether they were or wern't contigious 
could be of different t 
implement such a key, t 


M. Katz 
PARE_KEY is performing a contigious key - 


y one comparison need be 


because the segments 
no longer going to 
need to compare keys segment-by- 
segment, if both are contigious has disappeared, and only one 
comparison need be done resulting in a significant performance 


s. Because RMS 


SOoOoooCQooooooooooooooOooo 
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Keith 8. Thompson 
Reorganize psects 


Maria del C. Nasr 
Loop to compare all ke 


ments independent of type. 
Also, eliminate RMSCOMP_ 


I] routine, not needed anymore. 


Paulina Knibbe 30-Apr-1981 
Change branch in RMS$COMP_ASCII to make it compare 
correctly against high key value 


Paulina Knibbe 3 } 
I routine to compare ascii-equivalent keys 


Paulina Knibbe 
Change size field for key se 
atatype from the segmen 


PSK0002 
Add RMSCOMP_ASCI 
ents from words to bytes 


Reformat the source. 
Revision History: 
W. heontg trees fix bug in nullkey -- set bit indicating that 


oints to a contiguous key and when comparing a 
packed decimal zero, use a zero length 
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Woe ooo DECLARATIONS ITE TT MOMS TSG Ct TOT a 
198 ; -SBTTL DECLARATIONS 
110 ; Files: 
i Include Files 
113 ; 
209 114 ; Macros: 
0000116" 
838 117 SIDXDEF 
009 119 
120 : t ls: 
9000 151: Equated Symbols 
$83 
0000 124 : Own Storage: 
0000 125; 
0000 126 
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68 } 3 ~SBTTL RMSNULLKEY = COMPARE KEY TO NULL KEY VALUE 
000 13 
000 1 ¢ ; RMSNULLKEY: compare key to null key value 
000 135; this routine compares the current key in a data record 
B38 : ¢ ; to the null value depending on the key data type. 
909 1 $ : Calling sequence: 
44 13 3 sbw rm$nul Lkey 
$88 1 : : Input Parameters: 
444 179 ; Address of data record 
0000 136 : Implicit Inputs: 
0000 143 ; r7 ~ address of index descriptor for current key of reference 
44 ve: : ap - same as for rm$comparekey 
0000 146 ; Outrut Parameters: 
0000 147; r0 - key is null 
444 Ve : - 1 key not null 
0000 150 ; Implicit Outputs: 
0000 182 ; — 
0000 138 : Routine Value: 
0000 185. ; — 
0000 156; Side Effects: 
0000 157 ; register r0,r1 are clobbered 
0000 158 ; 
$383 1p 
0000 161 -ENABL LSB 
0000 196 RMSNULLKEY:: 
08 BB 0000 16 PUSHR #*M<R3> 
51 08 AE 00 0002 164 OVL 8(SP),R1 3 move snput param for RMSCOMPARE_KEY 
OC DD 0006 165 PUSHL #12 3 put packed decimal zero on stac 
7E DS 0008 166 CLRL -(SP) 3 put zero on stack for binary compares 
21 A? = 95 OCOA 167 TSTB IDX$B_KEYREF (R7) ; is this the primary key? 
13 13 OQO00D 168 BEQL $ 3; primary keys can not be null 
OE 1C A? O02 €1 Bot 4 BBC HIDXS$V_NULKEYS, IDX$B_FLAGS(R7) 90S SS oat — ner pi ioued. 
> return not nu e 
5C 06 88 0014 171 BISB2 #6,AP : Signet this is a null key compare 
0017 176 3; and that r3 points to a ctg key 
3 dO Bate 17 MOVL SP,R3 3; setup key address to stack 
20 A 9A OOIA 174 MOVZBL IDX$B_KEYSZ(R7),RO 3 compare total size of key 
60 at: 175 BSBB RMSCOMPARE_KEY ; call key compare 
0 033 178 BEQL 100$ ; r0 already equals zero 
50 01 9A $0 ; 178 90$: tty y #1,R0 3 set return value 
5E 8 y O058 1 100$: ADDL AN ae 3; restore stack pointer 
05 G09A 18 RSB 3; return to caller 
02B 182 -DSABL LSB 
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~SBTTL RMSCOMPARE_KEY = COMPA © TWO KEYS 


ed 

RMSCOMPARE_KEY: 
given the index descriptor for the current key of reference, a contiguous 
or a Ronwe ent *quows search key is compared with the second character string 
which may be either another contiguous key or a data record. the compare 
is done accore'ng to the data vied each segment of the key is 
compared until the requested number of characters has been examined. 

_— sequence: 

sbw rm$compare_key 


Input Parameters: 
ap 


oO 
SPOPIPOIPIPOPIPININIPYNDININPINPINPININININIPoNPoPungpnonopofpofroenn 


- bit 0 0 string pointed to by rl is a data record 
- bit 0 1 string pointed to by rl is contiguous key 
- bit 1 0 string pointed to by r3 is non-contiguous key 
- bit 1 1 string pointed to by r3 is contiguous key 
- bit 2 U not null key compare 
- bit 2 1 null key compare 
ri - address of data record/index 
r3 - address of search key 
* number of characters to compare 
r7 - address of index descriptor for current key of refer 
Implicit Inputs: 
none 
Output Parameters: 
r0 - index/data record = search key 
r0 - -1 index/data record > search key 
r0 - +4 index/data record < search key 
Implicit Outputs: 
none 
Routine Value: 
none 


Side Effects: 
register r0,ri,r3 are clobbered 


Bete Se Se Se Se Se Se Se Ss Se Se Ge Ge Se Ge Se Se Se Se Be Ge Ge Ge Be Be Ge Ge Be Ge Ss Se Ge Se Se Se Se Se Se Se Ge Se 
5 
oO 


-ENABL LSB 
RMSCOMPARE_KEY:: 
PUSHR 


local symbols 


074 8F #*M<R2,R4,R5,RO> ; save these registers 

4 50 MOVL P ; setup size 
56 2C A? 3E MOVAW IDX$W_POSITION(R7),R6 ; setup pter to pos/size/type array 
55 =1E A7 MOVZBL IDX$B_SEGMENTS(R7),R5 ; pickup # of segments in this key 


if it is necessary to position into data record, do so. pests toning into 
data record on the first segment is handled differently than the others. 


PRAWN AW NININIAIIIINIDINININPIDINIDNS 4 OP HF FHOOODCOOCOCSCOOCOWOOOOOO OOO WMC ODOD 


SOONOA MANE WD CO ODA UNE WIN CO OO NA ME WIN  O OD NOA UE WR 0 OO NA UENO OOO NOUS 


Q 
0 
6 
Q 
0 
0 
0 
0 
0 
0 
] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
Q 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
: 


SSS S SS RS RS ob ob om 0d Ob Os 9 09 GD Od OD OD OD OD 0 09 0) OD OD OD OD OD OD) OD OD OD ODD DOD WW WW WWW www www mmweD 


RIPMGPOPOPSPUNIPYINIPUDINYADININPOPIPINIPIPYINPINPININININIPINPINPIPUNINYININPIPINININININYDYD 2 PP OP OP Ps es ss ss ws es ee ee 


SOCCOCOOSCOCOCOSCOCOCO SOS SSS SOOSOCSOOSCCCSOCSCOCOOCCOCOOC COCO OOCOCOOOOOCOCOOO 


WINIAINNIWIAIRIPIPINIPININININININI FINI NIN NN Pon 


RM3CMPKEY 19-360 = 198% 91:07:08 AX/VMS Macro v04-00 Page 6 
v04-000 RMSCOMPARE_KEY = COMPARE TWO KEYS -SEP=1984 16:24:18 (CRMS.SRCIRM3CMPKEY.MAR; 1 (4) 
A 4] 
50 86 3 Oh rk: MOVZWL (R6)+,R0 ; disp in record of first key segment 
03 E D 4 BLBS AP,5$ ; is this a data record? 
2} 5 C 4 44 ADDL2 ~ ~=RO,R1 : yes set record pter to addr of first key 
23 § 2 E 4 45 5$ BBS #1,AP,20$ : is key contiguous? 
5 ee: 04 r. ADDL2 = R0O,R3 3 no, set key pter to addr of first key char 
1€ 11 QOGA 4 BRB 20$ : skip position for subsequent key 
a 
doce 50 : this logic calculates the start character of subsequent segments when r1 
04C 51 ; points to a data record. 
Doce 588 
50 86 $¢ 004C¢ 54 10$: MOVZWL (R6)+,RO0 i; pickup disp of this key segment 
52 FA A6 C O04F 55 MOVZWL -6(R65,R2 ; pickup disp of previous key 
50 52 C2 0053 56 SUBL2 R2,R0 ; subtract it from this segments disp 
52 FC A6 JA 0056 57 MOVZBL <-4(R6),R2 ; pickup len of previous segment 
50 52 C2 OO05A 58 SUBL2 R2,R0 ; subtract it from this segment disp 
03 5C €8 005D 59 BLBS AP,15$ ; is this a data record? 
0060 S61 
0060 $06 : add difference of first char this segment minus last char +1 of previous segment 
0060 Sea | 
51 50 CO 0060 265 ADDL2 RO,R1 ; position to first char of this key segment 
03 5¢ 01 EO 0063 266 15$: BBS #1,AP,20$ ; is key contiguous? F 
53 50 ¢cO 0067 267 ADDL2 = RO,R3 3; no, position to first char of this key seg 
ae 
006A 70 : now calculate Length of current compare 
boca 2 
52 86 9A Q06A $8 20$: MOVZBL (R6)+,R2 : get Length of this segment 
50 86 9A 43 se MOVZBL (R6)+,RO 3; get datatype of this segments 
03 S5C 02 00 ED 0070 276 CMPZV «#0, #2,AP,#3 ; if both keys are contigious then only 
os te sie BEQLU 25$ 3 one comparison will be necessary 
54 52 D1 0077 $9 CMPL R2,R4 3; compare to rensining compare Length 
03 1B 007A 280 BLEGU 308 : if it is gtr remaining 
52 54 00 Bane 32) 25$: MOVL R4,R2 3 compare remaining Length only 
54 52 C2 008 Hh 30$: SUBL2 R2,R4 3; update # of char remaining in compare 
28 
Boe y 3; compare is done according to data type. 
08 88 ° 
38 82 CASE TYPE=B,SRC=RO,- 
00 0 DISPLIST=<STR, IN2,BN2,1N4,BN4,PAC,1N8,BN8> 
Be 
$098 38 3; data string compare 
a. 
OD 5C 0¢ £8 096 38 STR BBS es NULSTR : is this a null string compare? 
63 61 2 9 O0O9A 9 CMPC3 RO. (RI), (RB) 3; compare characters 
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44 1 9 9 BNEQ 90$ :; if neq, terminate compare 
54 OD A) 35 50$: TSTL R4 : check # of characters resetning 
oF 1 OA 0 BNEQ 140$ : if more, loop for next segment 
0073 3 BAS 1 BRW 145$ : if no more, compare is done and eql 
QOA7 a8 H 
QOA7 4 ; compare key string segments to null value 
vane 
1F A? (38 ODA? Q7 NULSTR: SKPC epee acetal ; look for other than null char 
F2 13 QOAC 08 BEQL 0$ ; if mone found, found null key 
ree b Spar 09 BRB 1350$ ; did not find null key 
0B 10 
00B0 11 
0080 \¢ ; : 
00B0 15; packed decimal 
00B0 14 ; 
00B0 315 
9 C4 0080 316 PAC: MULL2 #2,R2 : 4 bits to a nibble 
5 D7 00B3 317 DECL Re i; sign does not count 
02 Fo 0085 318 BBS #2,AP,NULPAC ; is this a null key compare? 
52 5 00B9 319 CMPP R2.(R1)+,(R3)+ ; compare one packed decimal string 
1A 11 «(0080 320 BRB 60$ : do signed branches 
OOBF 21 
QOOBF 322 ; 
OOBF 323 ; compare packed decimal to zero, the null value 
OOBF 324 ; 
OOBF $52 
54 04 OOBF 26 NULPAC: CLRL R4 ; length of packed decimal zero 
83 05 00C1 $56 TSTL (R3)+ 3; skip binary zero ‘ 
54 37 00C3 28 CMPP4 =R4,(R3),R2,(R1) 3 the search null routine puts packed decima 
49 13 00C8 4 BEQL 146$ 3 string is zero 
42 11 OOCA 0 BRB 1308 ; not zero 
oocc 8 331 
OOCC $36 re: 
0O0CC 333 ; signed word compare 
0OCcC 34 ; 
OOCC 35 
81 B81 O0CC 36 IN2: CMPW (R1)+,(R3)+ ; compare one word 
08 11 + OOCF 37 BRB 60$ ; do signed branches 
00D1 338 
00D1 339; 
00D1 40 ; unsigned word compare 
390! 41 ; 
0D1 4s 
81 61 00D1 43 BN2: CMPW (R1)+,(R3)+ 3 compere one word 
0c 11 00D4 44 BRB 80$ ; do unsigned branches 
it 45 
0D6 46 ; 
00D6 47 ; signed long word compare 
006 48 ; 
006 49 
81 D1 00D6 50 IN4: CMPL (R1)+,(R3)+ 3; compare one long word 
“4 13. Q0D9 51 90s: BEQL 1408 : if equal, check if done 
1 19 (Q0ODB 26 0$: BLSS 1308 ; key > data record 
ae FH 4 tz BRB 1208 3; key < data record 
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Sy ft. | sigue i d 
3 unsigned long word compare 
o , 9 g p 
1 D1 OODF 59 BN4: CMPL (R1)+,(R3)+ ; compare one long word 
5 13. QOE2 60 Bos: REQLU 140$ $47 Geuat. theeh’ 47 done 
sf 1F QOE4 61 90$: BLSSU 130$ ; key > data record 
0 11 OOE 66 BRB 120$ i key < data record 
OOE 6 
OOF $5 , igned dword 
: signed quadword compare 
ae 
04 Al D1 OOE8 68 IN8: CMPL 4(R1),4(R3) ; Compare upper Longwords. 
19 14 OOED 69 BGTR 1608 : If gtr, Key < data. 
1D «12 BOE oy BNEQ 1350$ ; Else if neq, key > data. 
61 01 OOF1 i CMPL (R1),(R3) ; Compare lower Longwords. 
1D 13 OOF4 7 BEQLU 140% 3 Bot sanqueres match; key = data. 
16 1F QOOF6 374 BLSSU _- 1308 : key > da 
OE 11 OOF8 375 BRB 120$ ; key < data. 
OOFA 376 
OOFA ze : 
OOFA 78 ; unsigned quadword compare 
OOFA 379 ; 
OOFA $89 
04 Al D1 OOFA 81 BN8: CMPL 4(R1),4(R3) : ens upper i lLongwords. 
05 12 OOFF 382 BNEQU 110% ; neau, check if done. 
61 D1 0101 383 CMPL (R1),(R3) : if are lower longwords. 
OD 13 0104 384 BEQLU 140$ ; Bot a words match; key = data. 
06 1F 0106 385 110$: BLSSU  130$ ; Key > 
0108 386 3; drop Pnochy to 1208 if key < data. 
0108 387 
0108 388 ; ; 
0108 389 ; return search key < data record/index 
0108 390; 
0108 391 
FF 8F 98 0108 $08 120$: CVTBL #-1,R0 
0€ 11 010¢ 39 BRB 150$ 
Q10E 394 
Q10E 395 ; : 
Q010E 396 ; return search key > data record/index 
010€ 97 ; 
BIE 98 
01 9A O10E 99 130$: MOVZBL #1,R0 
09 «(11 or] 400 BRB 56$ 
11 401 
011 ht} 3 : 
11 403 ; search key segment = data record/index segment 
13 408° 
55 07 13 406 140$: DECL R5 ; decrement number of segments left 
93 15 0115 407 BLEQ 145$ : if none left, exit with match 
FF32 31 O117 408 BRW 10$ 3 otherwise, try next segment 
11A 409 
Bie 410 : 
11A 411; return search key = data record/index key 
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$$.PSECT_EP = 00 
SSRMST = 1A 
SSRMS_PBUGCHK = 8 
SSRMS_TBUGCHK = 00 
$$ E = 8 $ 4 
BN2 DIR 01 
BNS 4 DF R 01 
BN8& FAR 01 
1DX$B_FLAGS = 0000001C 
IDX$B_KEYREF = BOOS 
1DX$B_KEYSZ = 00000020 
1DX$B_NULLCHAR = 44 BE 
IDX$B_SEGMENTS = 8 Bt5 
IDX$V_NULKEYS = 444 
IDX$W-POSITION = 0000002C 
IN2 QOOOOOCC R 01 
ING 00000006 R 01 
IN8 QOOO00DES R 01 
NULPAC QOOOOOBF R 01 
NULSTR Q00000A7 R 01 
PAC 00000080 R 01 
RMSCOMPARE_KEY 0000002B RG 01 
RMSNULLKEY 00000000 RG 01 
STR 00000096 R 01 
See eee eeeeeaneeee + 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
» OS. « 0000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS3 0000012 Fee Sear. PIC USR CON’ REL GBI, NOSHR EXE RD NOWRT NOVEC QUAD 
SABSS$ 00000000 <( 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
fee ween ee wr emer nn we we mame na} 
! Performance indicators ! 
frmen econ ewe em eer em nwo ree 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 £000 08 «08 00:00 :00.22 
Command processing 112 00:00:00.79 0:00:05.95 
Pass 1 151 88 8: 6 88:8 Of #3 
Symbol iable sort g 7:00:00. 0:00:00. § 
Pass 2 8 8 BR: 0.91 00:00:04.1 
Symbol table output 3 00:00:00.03 BF 88:80 03 
Psect synopsis output 00:00:00.02 0:00: 8 Be 
Cross-reference output 00:00: 8-82 Sb Se 
Assembler run totals 38 00:00:03.96 00:00:18.32 


The_ working set Limit was 1200 pages. . 

9557 bytes (19 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 76 non-local and 21 local symbols. 
419 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

11 pages of virtual memory were used to define 10 macros. 
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VAX=11 Macro Run Statistics -1984 RMS.SRCIRM3CMPKEY.MAR; 1 4) 
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Macro Library name Macros defined 
$255$DUA28:CRMS. -OBJ3RMS. -MLB;1 2 
“$25 = 8:(SYS.OBJJLIB.MLB;1 1 
“$255$DUA28: SYSLIBISTARLET. MLB; 2 3 
TOTALS (all Libraries) 6 


140 GETS were required to define 6 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RM3CMPKEY/OBJ=OBJ$:RM3CMPKEY MSRC$:RM3CMPKEY/UPDATE=(ENH$:RMSCMPKEY) +EXECML$/LIB+LIB$:RMS/LIB 


